home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CICA 1995 August
/
CICA - The Ultimate Collection of Shareware for Windows (Disc 2) (August 1995).iso
/
disc2
/
demo
/
pwrtcp11.exe
/
POWERTCP.BA_
/
POWERTCP.bin
Wrap
Text File
|
1995-02-16
|
9KB
|
199 lines
' PowerTCP Action Property values
Global Const CONNECT = 0
Global Const LISTEN = 1
Global Const CLOSECOMM = 2
Global Const ABORTCOMM = 3
' PowerTCP Communication States (TCP and TELNET)
Global Const CLOSED = 1
Global Const CONNECTING = 2
Global Const CONNECTED = 4
Global Const LISTENING = 8
Global Const CLOSING = 16
' PowerTCP Flags
Global Const PT_DEBUG = 1
Global Const PT_REUSEADDR = 2
Global Const PT_KEEPALIVE = 4
Global Const PT_SHOW = 8
Global Const PT_TCPNODELAY = 16
' PowerTCP Error Values
Global Const PT_OK = 0 '/* OK...ErrorDesc should be NULL */
Global Const PT_HARDWARE = 1 '/* hardware failure */
Global Const PT_PROTOCOL = 2 '/* protocol software failure */
Global Const PT_BADNAME = 3 '/* name of host cannot be resolved to address */
Global Const PT_CONNREFUSED = 4 '/* connection to host refused */
Global Const PT_NOROUTE = 5 '/* no route to host (check network part of address) */
Global Const PT_NOHOST = 6 '/* remote host is not available (check host part of address) */
Global Const PT_NOMEM = 7 '/* insufficient resources to accept buffer or create channel */
Global Const PT_ADDRINUSE = 8 '/* address/port in use */
Global Const PT_NOTCONNECTED = 9 '/* attempt made to use a session that is not PT_CONNECTED */
Global Const PT_NORESOURCE = 10 '/* insufficient resources on host */
Global Const PT_NOTACCEPTED = 11 '/* applicaton did not properly accept passive connection */
Global Const PT_SOFTWARE = 12 '/* general software error */
Global Const PT_REMOTECLOSE = 13 '/* remote host closed */
Global Const PT_WARNING = 14 ' /* general warning */
Global Const PT_ERROR = 15 '/* general error */
' Add TCP_CNST.BAS to your project for State, Flags, and Error Codes
' PowerTCP TELNET commands
Global Const SE_CMD = 240
Global Const NOP_CMD = 241
Global Const DATA_MARK_CMD = 242
Global Const BREAK_CMD = 243
Global Const INTERRUPT_PROCESS_CMD = 244
Global Const ABORT_OUTPUT_CMD = 245
Global Const ARE_YOU_THERE_CMD = 246
Global Const ERASE_CHARACTER_CMD = 247
Global Const ERASE_LINE_CMD = 248
Global Const GO_AHEAD_CMD = 249
Global Const WILL_CMD = 251
Global Const WONT_CMD = 252
Global Const DO_CMD = 253
Global Const DONT_CMD = 254
Global Const SB_CMD = 250
' Telnet options
' NOTE: These are not all possible options. New options
' are currently being defined. This list contains many
' of the common ones you may use.
Global Const BINARY_TRANSMISSION = 0
Global Const ECHO = 1
Global Const RECONNECTION = 2
Global Const SUPPRESS_GO_AHEAD = 3
Global Const MESSAGE_SIZE = 4
Global Const STATUS = 5
Global Const TIMING_MARK = 6
Global Const REMOTE_CONTROLLED = 7
Global Const OUTPUT_LINE_WIDTH = 8
Global Const OUTPUT_PAGE_SIZE = 9
Global Const OUTPUT_RETURN_DISPOS = 10
Global Const OUTPUT_HORIZ_TABSTOPS = 11
Global Const OUTPUT_HORIZ_TAB_DISPOS = 12
Global Const OUTPUT_FORM_FEED_DISPOS = 13
Global Const OUTPUT_VERT_TABSTOPS = 14
Global Const OUTPUT_VERT_TAB_DISPOS = 15
Global Const OUTPUT_LINE_FEED_DISPOS = 16
Global Const EXTENDED_ASCII = 17
Global Const LOGOUT = 18
Global Const BYTE_MACRO = 19
Global Const DATA_ENTRY_TERMINAL = 20
Global Const SUPDUP = 21
Global Const SUPDUP_OUTPUT = 22
Global Const SEND_LOCATION = 23
Global Const TERMINAL_TYPE = 24
Global Const END_OF_RECORD = 25
Global Const TACACS_USER_ID = 26
Global Const OUTPUT_MARKING = 27
Global Const TERMINAL_LOC_NUM = 28
Global Const REGIME_3270 = 29
Global Const X3_PAD = 30
Global Const WINDOW_SIZE = 31
' FTP - File Type
Global Const FTP_ASCII = 0
Global Const FTP_IMAGE = 1
' FTP - File Structure
Global Const FTP_FILE = 0
Global Const FTP_RECORD = 1
Global Const FTP_PAGE = 2
' FTP - File Transfer Mode
Global Const FTP_STREAM = 0
Global Const FTP_BLOCK = 1
Global Const FTP_COMPRESSED = 2
' FTP - Possible "LastCommand" values reported
Global Const FTP_CLOSED = 0 ' control connection not established
Global Const FTP_CLEAR = 1 ' no outstanding request or user used Command property
Global Const FTP_USER = 2 ' username sent
Global Const FTP_PASS = 3 ' password sent
Global Const FTP_ACCT = 4 ' acct sent
Global Const FTP_CWD = 5 ' changing working directory
Global Const FTP_CDUP = 6 ' changing working directory up one level
Global Const FTP_SMNT = 7 ' do a structured mount
Global Const FTP_QUIT = 8 ' quit and release all resources or connection closed
Global Const FTP_REIN = 9 ' reinitialize
Global Const FTP_PORT = 10 ' set data port
Global Const FTP_PASV = 11 ' instruct server to go passive
Global Const FTP_TYPE = 12 ' change type file
Global Const FTP_STRU = 13 ' specify file structure
Global Const FTP_MODE = 14 ' specify data transfer mode
Global Const FTP_RETR = 15 ' receiving a file
Global Const FTP_STOR = 16 ' sending a file with create option
Global Const FTP_STOU = 17 ' sending a file with create unique option
Global Const FTP_APPE = 18 ' sending a file with append (create) option
Global Const FTP_ALLO = 19 ' allocate storage on host
Global Const FTP_REST = 20 ' restart file transfer
Global Const FTP_RNFR = 21 ' rename from
Global Const FTP_RNTO = 22 ' rename to
Global Const FTP_ABOR = 23 ' abort control connection
Global Const FTP_DELE = 24 ' deleting a file
Global Const FTP_RMD = 25 ' remove dir
Global Const FTP_MKD = 26 ' make a directory
Global Const FTP_PWD = 27 ' print working directory
Global Const FTP_LIST = 28 ' waiting for a directory listing
Global Const FTP_NLST = 29 ' waiting for a name listing
Global Const FTP_SITE = 30 ' special site instructions
Global Const FTP_SYST = 31 ' get type of operating system
Global Const FTP_STAT = 32 ' get status info
Global Const FTP_HELP = 33 ' help request
Global Const FTP_NOOP = 34 ' noop request
' FTP - Status Codes
Global Const FTP_UNKNOWN = 0 ' spontaneous data or reply from Command
Global Const FTP_SUCCESS = 1 ' operation completed sucessfully
Global Const FTP_ERROR = 2 ' unexpected error
Global Const FTP_FAILURE = 3 ' failure to complete successfully
Global Const FTP_WORKING = 4 ' informative...wait for next
' VT-220 - General Constants
Global Const TTY = 0
Global Const VT52 = 1
Global Const VT100 = 2
Global Const VT220_7 = 3
Global Const VT220_8 = 4
' VT-220 - Host has sent a Command sequence
Global Const IGNORECOMMAND = 0 ' set by user to disable auto response by program
Global Const AUTOPRINTOFF = 1 ' do not print incoming lines
Global Const AUTOPRINTON = 2 ' print incoming lines
Global Const PRINTERCONTROLLEROFF = 3 ' do not send lines to printer
Global Const PRINTERCONTROLLERON = 4 ' send lines to printer, not screen
Global Const PRINTCURSORLINE = 5 ' print text for CursorRow
Global Const PRINTSCREEN = 6 ' print text for the screen
Global Const OFFLINE = 7 ' echo characters to screen (local)
Global Const ONLINE = 8 ' send characters to host
Global Const PRINTFFON = 9 ' print form feed on
Global Const PRINTFFOFF = 10 ' print form feed off
Global Const PRINTEXTENTFULL = 11 ' print extent is full screen
Global Const PRINTEXTENTSCROLLING = 12 ' print extent is scrolling region
Global Const NEW_VT52 = 13 ' * new VT52 commanded
Global Const NEW_VT100 = 14 ' * new terminal type commanded
Global Const NEW_VT220_7 = 15 ' * new VT-220 with 7 bit controls
Global Const NEW_VT220_8 = 16 ' * new VT-220 with 8 bit controls
Global Const RESET_TERMINAL = 17 ' * reset the terminal
Global Const SMOOTHSCROLL = 18 ' * change to smooth scroll
Global Const JUMPSCROLL = 19 ' * change to jump scroll
Global Const NORMALCURSORKEYS = 20 ' * use normal cursor keys
Global Const APPLICATIONCURSORKEYS = 21' * use application cursor keys
Global Const WIDEMODEON = 22 ' * go to 132 columns
Global Const WIDEMODEOFF = 23 ' * go to 80 columns
Global Const INVERSEMODEON = 24 ' * invert foreground and background
Global Const INVERSEMODEOFF = 25 ' * invert foreground and background
Global Const CURSORENABLED = 26 ' * make it visible
Global Const CURSORDISABLED = 27 ' * hide it
Global Const AUTOWRAPON = 28 ' * turn autowrap on
Global Const AUTOWRAPOFF = 29 ' * turn autowrap off
Global Const AUTOREPEATON = 30 ' * turn autorepeat on
Global Const AUTOREPEATOFF = 31 ' * turn autorepeat off
Global Const NEWLINECRLF = 32 ' * return key should generate CR/LF pair
Global Const NEWLINECR = 33 ' * return key should generate CR only